home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 93 / CDMM_93_2.ISO / Project Nomads / nomads_demo_eng.exe / ENVINIT.TCL < prev    next >
Encoding:
Text File  |  2002-07-29  |  34.7 KB  |  835 lines
  1. #--------------------------------------------------------------------
  2. #   envinit.tcl
  3. #
  4. #   Sammlung von Tcl-Prozeduren, welche die Umgebung von
  5. #   Nomads initialisieren (Server-Objekte, Handler-Objekte,
  6. #   Settings, Netzwerk-Initialisierung).
  7. #   
  8. #   20-Mar-99   floh    created
  9. #   01-Jul-99   Bernd
  10. #   13-Jul-99   Bernd
  11. #   14-Jul-99   floh    create_handlers: new n3dnode /world/gui
  12. #   29-Jul-99   floh    + Viewer-Setstate nach opengame
  13. #                       + tod3d/togl-Funktionen
  14. #   30-Jul-99   floh    + ninputhandler ist tot und durch ninputserver
  15. #                         ersetzt
  16. #   23-Aug-99   bernd   game_init in get_gamedata umbenannt
  17. #                       game_cleanup gekillt        
  18. #   20-Sep-99   bernd   Demo Anfang nicht mehr so dramatisch.
  19. #   26-Sep-99   bernd   Demo Anfang: Andere Uhrzeit
  20. #   27-Sep-99   bernd   Demo Anfang
  21. #   05-Okt-99   bernd   Demo Anfang / Sammler suchen Steine
  22. #   21-Okt-99   bernd   neue landungsfΣhige Dummystation
  23. #   01-Nov-99   bernd   Wenn devstation - dann auch unter Win9x im Window
  24. #   26-Nov-99   bernd   John landet jetzt direkt auf der plattform 
  25. #                       hat von Anfang an Handkontrolle
  26. #   30-Nov-99   bernd   Weiter am neuen Input Mapping
  27. #   05-Jan-2000 bernd   Alles mal bissl auf eine Stelle
  28. #   2000-01-13  bernd   Artefakte und Station sind jetzt Owner 0 - st÷ren nicht mehr beim Gucken 
  29. #   2000-01-17  floh    alles auf nd3d7server umgebogen
  30. #   2000-01-02  bernd   Kosmetik
  31. #   15-Feb-2000 floh    Platform-Identifizierung zentralisiert
  32. #                       (get_platform ist jetzt in nsh.tcl)
  33. #   12-Mai-2000 bernd   Zeux fⁿr Wolken
  34. #   06-Jun-00   floh    Soundsupport
  35. #   14-Jun-2000 bernd   WolkenEditor/neue Wolken weiter eingepa▀t
  36. #   19-Jun-00   floh    + experimentell: ncollideserver, ncollhandler2
  37. #   05-Jul-00   floh    + Win2k: default auf OpenGL
  38. #   06-Jul-00   floh    + maximale Sichtentfernung auf 5km
  39. #   13-Jul-00   floh    + maximale Sichtentfernung auf 10km
  40. #                       + endgueltige Kollissions-Tabelle
  41. #   09-Aug-00   floh    + ncollhandler raus
  42. #   28-Aug-00   s3      atmos als standardhimmel ueberall
  43. #   09-Sep-00   floh    + neue Kollissions-Klasse "avoid"
  44. #   26-Sep-00   floh    + neue Kollissions-Klasse "gun"
  45. #   29-Jan-01   floh    + new game handler: eventqueue
  46. #   27-Mar-01   floh    + fixed zbuffer/sbuffer resolution in windowed mode
  47. #                         windowed mode now uses 16 bit zbuffer, fullscreen
  48. #                         is generally 32 bit (32 bit color and 32 bit zbuffer)
  49. #                       + default gfx server under w2k now nd3d7server again
  50. #   07-Aug-01   floh    + nvtuneserver
  51. #   26-Sep-01   floh    + ndatahandler
  52. #   15-Oct-01   floh    + nbookhandler/neventhandler
  53. #   10-Dec-01   floh    + new viewer stuff
  54. #   15-Dec-01   floh    + killed old book stuff
  55. #                       + killed "multiplayer_manual" proc
  56. #                       + killed "umgebung" proc
  57. #   09-Jan-02   floh    + added ncookiehandler
  58. #   11-Jan-02   floh    + mipmap lod configuration
  59. #   31-Jan-02   floh    + configure custom mouse cursors
  60. #   11-Feb-02   floh    + added nfileserver2
  61. #   18-Feb-02   floh    + added nfreeviewer as alternative viewer
  62. #   21-Mar-02   floh    + neuer Audio-Server
  63. #   23-Mar-02   floh    + removed viewer.tcl
  64. #   03-Apr-02   floh    + nfeedbackhandler added
  65. #   08-Apr-02   floh    + nstationhandler raus
  66. #   16-Apr-02   floh    + nanimserver neu
  67. #--------------------------------------------------------------------
  68.  
  69. set providerset 0
  70.  
  71. #--------------------------------------------------------------------
  72. #   create_servers
  73. #   Erzeugt die Nebula-Server-Objekte, initialisiert sie
  74. #   aber nicht.
  75. #   20-Mar-99   floh    created
  76. #   07-May-99   floh    Name des Scenegraph ist jetzt
  77. #                       /sys/servers/sgraph
  78. #   17-May-99   floh    updated
  79. #   05-Jun-99   floh    nlxinputserver (Joystick-Support unter Linux)
  80. #   22-Jun-99   floh    + nmathserver
  81. #   27-Jan-2000 bernd   Erzwingen des gewⁿnschten gfxservers
  82. #   15-Feb-2000 floh    + Support fuer Win2k
  83. #   16-Feb-2000 bernd   + Schreibfehler bei WinNT        
  84. #   03-Jul-01   floh    + nscenegraph2 and nchannelserver
  85. #   05-Aug-01   floh    + shadow server
  86. #--------------------------------------------------------------------
  87. proc create_servers {} {
  88.     global force_3ddevice
  89.  
  90.     # replace standard file server by npk virtual file server
  91.     delete /sys/servers/file2
  92.     new nnpkfileserver /sys/servers/file2
  93.     /sys/servers/file2.parsedirectory "home:"
  94.     
  95.     # enable 3d nodes in world
  96.     new n3dnode /usr/scene
  97.  
  98.     set nomads_platform [get_platform]
  99.  
  100.     set network_class nsocket2
  101.     set comm_class ncommserver
  102.     set console_class nconserver
  103.  
  104.     # ---------------------------------------
  105.     # EingabegerΣte je nach Plattform setzen
  106.     switch $nomads_platform {
  107.         win9x { set input_class ndi8server }
  108.         win2k { set input_class ndi8server }
  109.         winnt { set input_class ninputserver   }
  110.         unix  { set input_class nlxinputserver }
  111.     }
  112.  
  113.     # -----------------------------------------------
  114.     # Audio-Server ist ebenfalls plattformspezifisch
  115.     switch $nomads_platform {
  116.         win9x { set audio_class ndsoundserver2 }
  117.         win2k { set audio_class ndsoundserver2 }
  118.         winnt { set audio_class naudioserver2 }
  119.         unix  { set audio_class naudioserver2 }
  120.     }
  121.  
  122.     # -----------------------------------------------
  123.     # under windows, create a vtune profile server
  124.     switch $nomads_platform {
  125.         win9x { set profile_class nvtuneserver }
  126.         win2k { set profile_class nvtuneserver }
  127.         winnt { set profile_class nvtuneserver }
  128.         unix  { set profile_class nprofileserver }
  129.     }
  130.  
  131.     # ---------------------------------------------------------------
  132.     # Wenn force_3ddevice nicht da ist, dann setzen je nach Plattform
  133.     if  [ catch { set test $force_3ddevice } err ] {
  134.         switch $nomads_platform {
  135.             win9x { set gfx_class nd3d8server }
  136.             win2k { set gfx_class nd3d8server   }
  137.             winnt { set gfx_class nglserver   }
  138.             unix  { set gfx_class nglserver   }
  139.         }
  140.  
  141.     # Wenn force_3ddevice da ist, erzwingen wir den Server
  142.     } else {   
  143.         puts "Forcing: $force_3ddevice"
  144.         if { $force_3ddevice=="Direct3D" } { set gfx_class nd3d8server }
  145.         if { $force_3ddevice=="OpenGL"   } { set gfx_class nglserver   }
  146.     }
  147.  
  148. #    new $profile_class      /sys/servers/profile
  149.     new nfileserver2        /sys/servers/file2
  150.     new $network_class      /sys/servers/network
  151.     new $comm_class         /sys/servers/comm
  152.     new $gfx_class          /sys/servers/gfx
  153.     new $input_class        /sys/servers/input
  154.     new $console_class      /sys/servers/console
  155.     new nscenegraph2        /sys/servers/sgraph2
  156.     new nsbufshadowserver   /sys/servers/shadow
  157.     new nchannelserver      /sys/servers/channel
  158.     new nmathserver         /sys/servers/math
  159.     new nparticleserver     /sys/servers/particle
  160.     new nspecialfxserver    /sys/servers/specialfx
  161.     new $audio_class        /sys/servers/audio
  162.     new nopcodeserver       /sys/servers/collide
  163.     new nanimserver         /sys/servers/anim
  164.     new ncharacterserver    /sys/servers/character
  165. }
  166.  
  167. #--------------------------------------------------------------------
  168. #   togl
  169. #   Schaltet nach OpenGL
  170. #   29-Jul-99   floh    created
  171. #--------------------------------------------------------------------
  172. proc togl { } {
  173. global  devstation
  174.  
  175.     set nomads_platform [get_platform]
  176.     set cwd [psel]
  177.     sel /
  178.     delete /sys/servers/gfx
  179.     new nglserver /sys/servers/gfx
  180.     sel /sys/servers/gfx
  181.     if {$devstation} {
  182.         /sys/servers/gfx.setdisplaymode "dev(0)-type(win)-w(640)-h(480)-title( Nomads)-icon(nomads_icon)"
  183.     } else {
  184.         /sys/servers/gfx.setdisplaymode "dev(0)-type(full)-w(800)-h(600)-bpp(32)-title( Nomads)-icon(nomads_icon)"
  185.     }
  186.     /sys/servers/gfx.setviewvolume -0.1 +0.1 -0.075 +0.075 +0.1 +5000.0
  187.     /sys/servers/gfx.opendisplay
  188.     sel $cwd
  189. }
  190.  
  191. #--------------------------------------------------------------------
  192. #   tod3d
  193. #   Schaltet nach Direct3D
  194. #   29-Jul-99   floh    created
  195. #--------------------------------------------------------------------
  196. proc tod3d { } {
  197. global  devstation
  198.  
  199.     set nomads_platform [get_platform]
  200.     set cwd [psel]
  201.     sel /
  202.     delete /sys/servers/gfx
  203.     new nd3d8server /sys/servers/gfx
  204.     sel /sys/servers/gfx
  205.     if {$devstation} {
  206.         /sys/servers/gfx.setdisplaymode "dev(0)-type(win)-w(640)-h(480)-title( Nomads)-icon(nomads_icon)"
  207.     } else {
  208.         /sys/servers/gfx.setdisplaymode "dev(0)-type(full)-w(800)-h(600)-bpp(32)-title( Nomads)-icon(nomads_icon)"
  209.     }
  210.     /sys/servers/gfx.setviewvolume -0.1 +0.1 -0.075 +0.075 +0.1 +5000.0
  211.     /sys/servers/gfx.opendisplay
  212.     sel $cwd
  213. }
  214.  
  215. #--------------------------------------------------------------------
  216. #   setup_colltable
  217. #
  218. #   18-Oct-01   floh    added "contact" colltype, which only
  219. #                       checks for the first contact
  220. #   08-Mai-01   floh    mg gegen dummyisland
  221. #--------------------------------------------------------------------
  222. proc setup_colltable {multiplayer} {
  223.  
  224.     sel /sys/servers/collide
  225.         .begincollclasses
  226.             .addcollclass plane
  227.             .addcollclass island
  228.             .addcollclass artefact
  229.             .addcollclass building
  230.             .addcollclass maennel
  231.             .addcollclass missile
  232.             .addcollclass avoid
  233.             .addcollclass gun
  234.             .addcollclass generic
  235.             .addcollclass flak
  236.             .addcollclass proximity
  237.             .addcollclass dummyisland
  238.             .addcollclass bauphase
  239.             .addcollclass debris
  240.             .addcollclass ore
  241.             .addcollclass odetector
  242.         .endcollclasses
  243.  
  244.         .begincolltypes
  245.  
  246.             .addcolltype plane plane        contact
  247.             .addcolltype plane island       contact
  248.             .addcolltype plane artefact     ignore
  249.             .addcolltype plane building     contact
  250.             .addcolltype plane maennel      contact
  251.             .addcolltype plane missile      quick
  252.             .addcolltype plane avoid        quick
  253.             .addcolltype plane gun          quick
  254.             .addcolltype plane generic      quick
  255.             .addcolltype plane flak         contact
  256.             .addcolltype plane proximity    quick
  257.             .addcolltype plane dummyisland  contact
  258.             .addcolltype plane bauphase     contact
  259.             .addcolltype plane debris       ignore
  260.             .addcolltype plane ore          contact
  261.             .addcolltype plane odetector    ignore
  262.  
  263.             .addcolltype island plane       contact
  264.             .addcolltype island island      quick
  265.             .addcolltype island artefact    ignore
  266.             .addcolltype island building    ignore
  267.             .addcolltype island maennel     exact
  268.             .addcolltype island missile     exact
  269.             .addcolltype island avoid       quick
  270.             .addcolltype island gun         exact
  271.             .addcolltype island generic     ignore
  272.             .addcolltype island flak        ignore
  273.             .addcolltype island proximity   ignore
  274.             .addcolltype island dummyisland ignore
  275.             .addcolltype island bauphase    ignore  
  276.             .addcolltype island debris      exact    
  277.             .addcolltype island ore         ignore
  278.             .addcolltype island odetector   exact
  279.  
  280.             .addcolltype artefact plane         ignore
  281.             .addcolltype artefact island        ignore
  282.             .addcolltype artefact artefact      ignore
  283.             .addcolltype artefact building      ignore
  284.             .addcolltype artefact maennel       ignore
  285.             .addcolltype artefact missile       ignore
  286.             .addcolltype artefact avoid         ignore
  287.             .addcolltype artefact gun           ignore
  288.             .addcolltype artefact generic       quick
  289.             .addcolltype artefact flak          ignore
  290.             .addcolltype artefact proximity     ignore
  291.             .addcolltype artefact dummyisland   ignore
  292.             .addcolltype artefact bauphase      ignore
  293.             .addcolltype artefact debris        ignore
  294.             .addcolltype artefact ore           ignore
  295.             .addcolltype artefact odetector     ignore
  296.  
  297.             .addcolltype building plane         contact
  298.             .addcolltype building island        ignore
  299.             .addcolltype building artefact      ignore
  300.             .addcolltype building building      ignore
  301.             .addcolltype building maennel       exact
  302.             .addcolltype building missile       exact
  303.             .addcolltype building avoid         quick
  304.             .addcolltype building gun           quick
  305.             .addcolltype building generic       quick
  306.             .addcolltype building flak          ignore
  307.             .addcolltype building proximity     ignore
  308.             .addcolltype building dummyisland   ignore
  309.             .addcolltype building bauphase      ignore
  310.             .addcolltype building debris        exact
  311.             .addcolltype building ore           ignore
  312.             .addcolltype building odetector     ignore
  313.  
  314.             .addcolltype maennel plane          contact
  315.             .addcolltype maennel island         exact
  316.             .addcolltype maennel artefact       ignore
  317.             .addcolltype maennel building       exact
  318.             .addcolltype maennel maennel        exact
  319.             .addcolltype maennel missile        exact
  320.             .addcolltype maennel avoid          quick
  321.             .addcolltype maennel gun            quick
  322.             .addcolltype maennel generic        quick
  323.             .addcolltype maennel flak           exact
  324.             .addcolltype maennel proximity      quick
  325.             .addcolltype maennel dummyisland    exact
  326.             .addcolltype maennel bauphase       exact
  327.             .addcolltype maennel debris         exact
  328.             .addcolltype maennel ore            exact
  329.             .addcolltype maennel odetector      ignore
  330.  
  331.             .addcolltype missile plane          quick
  332.             .addcolltype missile island         exact
  333.             .addcolltype missile artefact       ignore
  334.             .addcolltype missile building       exact
  335.             .addcolltype missile maennel        exact
  336.             .addcolltype missile missile        ignore
  337.             .addcolltype missile avoid          ignore
  338.             .addcolltype missile gun            ignore
  339.             .addcolltype missile generic        ignore
  340.             .addcolltype missile flak           exact
  341.             .addcolltype missile proximity      ignore
  342.             .addcolltype missile dummyisland    exact
  343.             .addcolltype missile bauphase       ignore
  344.             .addcolltype missile debris         quick
  345.             .addcolltype missile ore            exact
  346.             .addcolltype missile odetector      ignore
  347.  
  348.             .addcolltype avoid   plane          quick
  349.             .addcolltype avoid   island         quick
  350.             .addcolltype avoid   artefact       ignore
  351.             .addcolltype avoid   building       quick
  352.             .addcolltype avoid   maennel        quick
  353.             .addcolltype avoid   missile        ignore
  354.             .addcolltype avoid   avoid          ignore
  355.             .addcolltype avoid   gun            ignore
  356.             .addcolltype avoid   generic        ignore
  357.             .addcolltype avoid   flak           ignore
  358.             .addcolltype avoid   proximity      ignore
  359.             .addcolltype avoid   dummyisland    quick
  360.             .addcolltype avoid   bauphase       quick
  361.             .addcolltype avoid   debris         ignore
  362.             .addcolltype avoid   ore            quick
  363.             .addcolltype avoid   odetector      ignore
  364.  
  365.             .addcolltype gun     plane          quick
  366.             .addcolltype gun     island         exact
  367.             .addcolltype gun     artefact       ignore
  368.             .addcolltype gun     building       quick
  369.             .addcolltype gun     maennel        quick
  370.             .addcolltype gun     missile        ignore
  371.             .addcolltype gun     avoid          ignore
  372.             .addcolltype gun     gun            ignore
  373.             .addcolltype gun     generic        ignore
  374.             .addcolltype gun     flak           quick
  375.             .addcolltype gun     proximity      ignore
  376.             .addcolltype gun     dummyisland    exact
  377.             .addcolltype gun     bauphase       ignore
  378.             .addcolltype gun     debris         ignore
  379.             .addcolltype gun     ore            quick
  380.             .addcolltype gun     odetector      ignore
  381.  
  382.             .addcolltype generic plane          quick
  383.             .addcolltype generic island         ignore
  384.             .addcolltype generic artefact       quick
  385.             .addcolltype generic building       quick
  386.             .addcolltype generic maennel        quick
  387.             .addcolltype generic missile        ignore
  388.             .addcolltype generic avoid          ignore
  389.             .addcolltype generic gun            ignore
  390.             .addcolltype generic generic        ignore
  391.             .addcolltype generic flak           quick
  392.             .addcolltype generic proximity      ignore
  393.             .addcolltype generic dummyisland    ignore
  394.             .addcolltype generic bauphase       ignore
  395.             .addcolltype generic debris         ignore
  396.             .addcolltype generic ore            quick
  397.             .addcolltype generic odetector      ignore
  398.  
  399.             .addcolltype flak plane         contact
  400.             .addcolltype flak island        ignore
  401.             .addcolltype flak artefact      ignore
  402.             .addcolltype flak building      ignore
  403.             .addcolltype flak maennel       exact
  404.             .addcolltype flak missile       exact
  405.             .addcolltype flak avoid         ignore
  406.             .addcolltype flak gun           quick
  407.             .addcolltype flak generic       quick
  408.             .addcolltype flak flak          ignore
  409.             .addcolltype flak proximity     ignore
  410.             .addcolltype flak dummyisland   ignore
  411.             .addcolltype flak bauphase      ignore
  412.             .addcolltype flak debris        ignore
  413.             .addcolltype flak odetector     ignore
  414.             
  415.             .addcolltype proximity plane        quick
  416.             .addcolltype proximity island       quick
  417.             .addcolltype proximity artefact     ignore
  418.             .addcolltype proximity building     ignore
  419.             .addcolltype proximity maennel      quick
  420.             .addcolltype proximity missile      ignore
  421.             .addcolltype proximity avoid        ignore
  422.             .addcolltype proximity gun          ignore
  423.             .addcolltype proximity generic      ignore
  424.             .addcolltype proximity flak         ignore
  425.             .addcolltype proximity proximity    ignore
  426.             .addcolltype proximity dummyisland  ignore
  427.             .addcolltype proximity bauphase     ignore
  428.             .addcolltype proximity debris       ignore
  429.             .addcolltype proximity ore          ignore
  430.             .addcolltype proximity odetector    ignore
  431.  
  432.             .addcolltype dummyisland plane       contact
  433.             .addcolltype dummyisland artefact    ignore
  434.             .addcolltype dummyisland building    ignore
  435.             .addcolltype dummyisland maennel     exact
  436.             .addcolltype dummyisland missile     exact
  437.             .addcolltype dummyisland avoid       quick
  438.             .addcolltype dummyisland gun         exact
  439.             .addcolltype dummyisland generic     ignore
  440.             .addcolltype dummyisland flak        ignore
  441.             .addcolltype dummyisland proximity   ignore
  442.             .addcolltype dummyisland dummyisland ignore    
  443.             .addcolltype dummyisland bauphase    ignore
  444.             .addcolltype dummyisland debris      exact   
  445.             .addcolltype dummyisland ore         ignore
  446.             .addcolltype dummyisland island      ignore
  447.             .addcolltype dummyisland odetector   exact
  448.             
  449.             .addcolltype bauphase plane       contact
  450.             .addcolltype bauphase island      ignore
  451.             .addcolltype bauphase artefact    ignore
  452.             .addcolltype bauphase building    ignore
  453.             .addcolltype bauphase maennel     exact
  454.             .addcolltype bauphase missile     ignore
  455.             .addcolltype bauphase avoid       quick
  456.             .addcolltype bauphase gun         ignore
  457.             .addcolltype bauphase generic     ignore
  458.             .addcolltype bauphase flak        ignore
  459.             .addcolltype bauphase proximity   ignore
  460.             .addcolltype bauphase dummyisland ignore    
  461.             .addcolltype bauphase bauphase    ignore
  462.             .addcolltype bauphase debris      ignore
  463.             .addcolltype bauphase ore         ignore
  464.             .addcolltype bauphase odetector   ignore
  465.  
  466.             .addcolltype debris plane       ignore
  467.             .addcolltype debris island      exact
  468.             .addcolltype debris artefact    ignore
  469.             .addcolltype debris building    exact
  470.             .addcolltype debris maennel     exact
  471.             .addcolltype debris missile     quick
  472.             .addcolltype debris avoid       ignore
  473.             .addcolltype debris gun         ignore
  474.             .addcolltype debris generic     ignore
  475.             .addcolltype debris flak        ignore
  476.             .addcolltype debris proximity   ignore
  477.             .addcolltype debris dummyisland exact    
  478.             .addcolltype debris bauphase    ignore
  479.             .addcolltype debris debris      ignore
  480.             .addcolltype debris ore         exact
  481.             .addcolltype debris odetector   ignore
  482.  
  483.             .addcolltype ore plane          contact
  484.             .addcolltype ore island         ignore
  485.             .addcolltype ore artefact       ignore
  486.             .addcolltype ore building       ignore
  487.             .addcolltype ore maennel        exact
  488.             .addcolltype ore missile        exact
  489.             .addcolltype ore avoid          quick
  490.             .addcolltype ore gun            quick
  491.             .addcolltype ore generic        quick
  492.             .addcolltype ore flak           ignore
  493.             .addcolltype ore proximity      ignore
  494.             .addcolltype ore dummyisland    ignore
  495.             .addcolltype ore bauphase       ignore
  496.             .addcolltype ore debris         exact
  497.             .addcolltype ore ore            ignore
  498.             .addcolltype ore odetector      ignore
  499.  
  500.             .addcolltype odetector plane          ignore
  501.             .addcolltype odetector island         exact
  502.             .addcolltype odetector artefact       ignore
  503.             .addcolltype odetector building       ignore
  504.             .addcolltype odetector maennel        ignore
  505.             .addcolltype odetector missile        ignore
  506.             .addcolltype odetector avoid          ignore
  507.             .addcolltype odetector gun            ignore
  508.             .addcolltype odetector generic        ignore
  509.             .addcolltype odetector flak           ignore
  510.             .addcolltype odetector proximity      ignore
  511.             .addcolltype odetector dummyisland    exact
  512.             .addcolltype odetector bauphase       ignore
  513.             .addcolltype odetector debris         ignore
  514.             .addcolltype odetector ore            ignore
  515.             .addcolltype odetector odetector      exact
  516.  
  517.         .endcolltypes
  518. }
  519.  
  520. #--------------------------------------------------------------------
  521. #   load_mouse_cursor
  522. #
  523. #   Load the custom mouse cursor. Must happen when display open.
  524. #--------------------------------------------------------------------
  525. proc load_mouse_cursor {} {
  526.     /sys/servers/gfx.begincursors 1
  527.     /sys/servers/gfx.setcursor 0 home:scripts/cursors/arrow.tga 0 0
  528.     /sys/servers/gfx.endcursors
  529.     /sys/servers/gfx.setcurrentcursor 0
  530.     /sys/servers/gfx.showcursor
  531. }
  532.  
  533. #--------------------------------------------------------------------
  534. #   init_servers
  535. #   Initialisiert die Server-Objekte.
  536. #   20-Mar-99   floh    created
  537. #   25-May-99   floh    definiert die Namen der Standard-Channel
  538. #   16-Jun-99   floh    macht jetzt gleich hier ein askprovider/
  539. #                       setprovider
  540. #   06-Jun-00   floh    + Sound-Server-Initialisierung
  541. #   06-Jul-00   floh    + Viewvolume auf 5000 begrenzt
  542. #   03-Okt-00   af      Artefakte kollidieren nur mit generic und Insel
  543. #   11-Jan-01   floh    + mipmap LOD init
  544. #   31-Jan-02   floh    + custom mouse cursors
  545. #--------------------------------------------------------------------
  546. proc init_servers {} {
  547. global  devstation
  548. global skyeditor
  549.     if  [catch { set dummy $skyeditor } err] { set skyeditor 0 }
  550.  
  551.     set nomads_platform [get_platform]
  552.  
  553.     # initialisiere Netzwerk-Server
  554.     sel /sys/servers/network
  555.         # folgende GUID identifiziert die Applikation (in diesem
  556.         # Fall Nomads) im Netz
  557.         .setguid 151 182 240 0 221 75 17 210 161 176 0 0 180 60 28 161
  558.         #.askprovider
  559.  
  560.         # Wenn man dieses Setprovider auskommentiert, kann man das Spiel mitunter
  561.         # unter NT GAAAANZ wesentlich beschleunigen.
  562.         
  563.         # debugging: Wenn unter NT der Rechner langsam wird, dann einen der
  564.         # Threads (oder mehrere) abschalten und testen, wer der Uebeltaeter
  565.         # ist. Netzsessions sind dann aber nicht mehr moeglich.
  566.         # allowsend     false
  567.         # allowreceive  false
  568.         # allowalarm    false
  569.         #.setprovider 1
  570.     sel ..
  571.  
  572.     # initialisiere Gfx-Server
  573.     sel /sys/servers/gfx
  574.         # Setze Display-Device und -Modus. Wenn das Device oder
  575.         # der Modus nicht existiert, waehlt der GfxServer
  576.         # etwas moeglichst aehnliches aus.
  577.         # In einem System mit mehr als 1 3D-Karte (z.B.
  578.         # S3-Virge/Voodoo) muss man die fuehrende 0 durch eine
  579.         # 1 ersetzen, um an die Voodoo zu kommen. Die Liste
  580.         # der unterstuetzten Devices und Modes findet man auch
  581.         # unter /sys/share/display
  582.  
  583.         if {$devstation} {
  584.             .setdisplaymode "dev(0)-type(win)-w(640)-h(480)-title( Nomads)-icon(nomads_icon)"
  585.         } else {
  586.            .setdisplaymode "dev(0)-type(full)-w(800)-h(600)-bpp(32)-title( Nomads)-icon(nomads_icon)"
  587.         }
  588.  
  589.         if {$skyeditor} {
  590.             .setdisplaymode "dev(0)-type(win)-w(934)-h(770)-bpp(16)-zbuf(16)-title( Nomads)-icon(nomads_icon)"
  591.         }
  592.  
  593.         # definiere das View-Volume, u.a. wird der Aspekt auf
  594.         # 4:3 gesetzt (wegen der Lowlevel-Viewvolume-Definition
  595.         # ist das bissel kompliziert, der GfxServer sollte mal
  596.         # eine Higher-Level-Methode anbieten...
  597.         # Der waagerechte Blickwinkel bleibt auf 90 Grad,
  598.         # der senkrechte Blickwinkel wird aber eingeschraenkt.
  599.         # Der Near Clipping Plane wird auf 10 Zentimeter gesetzt,
  600.         # die Far Plane auf 25 km
  601.  
  602.         .setviewvolume -0.1 +0.1 -0.075 +0.075 +0.1 +5000.0
  603.     sel ..
  604.  
  605.     # initialisiere Channelserver 
  606.     /sys/servers/channel.setchannel1f one 1.0
  607.     /sys/servers/channel.setchannel1f detail 1.0
  608.  
  609.     # initialize shadow server
  610.     /sys/servers/shadow.setcastshadows true
  611.  
  612.     # initialisiere Sound-Server
  613.     sel /sys/servers/audio
  614.         .setmode "chn(24)"
  615.         .openaudio
  616.     sel ..
  617.  
  618.     # OVERLAY und SPECIAL FX SERVER INIT
  619.     sel /sys/servers/specialfx
  620.     new n3dnode root
  621.         sel root
  622.         new n3dnode overlay
  623.             sel overlay
  624.             new noverlayplane plane
  625.             new nshadernode shader
  626.                 sel shader
  627.                 .setrenderpri 10
  628.                 .setlightenable false
  629.                 .setalphaenable true
  630.                 .setzwriteenable false
  631.                 .setfogenable false
  632.                 .setalphablend "srcalpha" "invsrcalpha"
  633.                 .setzfunc "always"
  634.             sel ..                
  635.         sel ..
  636.     sel ..
  637.  
  638.     # initialize mipmap LOD table
  639.     # mipmap LOD table
  640.     set cwd [psel] 
  641.     sel /sys/servers/sgraph2
  642.         .setenablemiplod true
  643.         .beginmiplod 12
  644.         .setmiplod 0 50
  645.         .setmiplod 1 100
  646.         .setmiplod 2 250
  647.         .setmiplod 3 450
  648.         .setmiplod 4 900
  649.         .setmiplod 5 1200
  650.         .setmiplod 6 1400
  651.         .setmiplod 7 1600
  652.         .setmiplod 8 1800
  653.         .setmiplod 9 2000
  654.         .setmiplod 10 2200
  655.         .setmiplod 11 2400
  656.         .endmiplod
  657.     sel $cwd
  658.  
  659.     #----------------------------------------------------------------
  660.     #   Initialisiere Kollissions-Tabelle, beschreibt die einzelnen
  661.     #   Kollissions-Objekt-Typen, und wie diese sich untereinander
  662.     #   testen sollen. (Note: false => Singleplayer)
  663.     #----------------------------------------------------------------
  664.     setup_colltable false
  665. }
  666.  
  667. #--------------------------------------------------------------------
  668. #   kill_servers
  669. #   Killt die von create_servers erzeugten Server-Objekte
  670. #   20-Mar-99   floh    created
  671. #   07-May-99   floh    Name des Scenegraph ist jetzt /sys/servers/sgraph
  672. #   03-Jul-01   floh    nscenegraph2 and nchannelserver
  673. #--------------------------------------------------------------------
  674. proc kill_servers {} {
  675.     /sys/servers/gfx.closedisplay
  676.  
  677.     sel /
  678.     delete /sys/servers/math
  679.     delete /sys/servers/shadow
  680.     delete /sys/servers/sgraph2
  681.     delete /sys/servers/channel
  682.     delete /sys/servers/console
  683.     delete /sys/servers/input
  684.     delete /sys/servers/gfx
  685.     delete /sys/servers/comm
  686.     delete /sys/servers/network
  687.     delete /sys/servers/particle
  688.     delete /sys/servers/anim
  689. #    delete /sys/servers/profile
  690. }
  691.  
  692. #--------------------------------------------------------------------
  693. #   create_handlers
  694. #   Erzeugt die GameHandler-Objekte sowie ein paar Standard-Objekte,
  695. #   die das nrealworld Objekt erwartet.
  696. #   20-Mar-99   floh    created
  697. #   11-May-99   floh    laedt zuerst das Nomads-Klassen-Package
  698. #   03-Jun-99   floh    + erzeugt Octree-Handler
  699. #   14-Jul-99   floh    + /world/gui
  700. #                       - /usr/scene
  701. #   14-Oct-99   floh    + nstationhandler
  702. #   18-May-00   jeremy  + ncloudshandler
  703. #   29-May-00   jeremy  + nweatherhandler
  704. #   09-Aug-00   floh    + ncollhandler raus
  705. #   29-Jan-01   floh    + new: neventqueue
  706. #   15-Dec-01   floh    + killed nstoryhandler, neventqueue
  707. #   09-Jan-02   floh    + ncookiehandler
  708. #--------------------------------------------------------------------
  709. proc create_handlers {} {
  710.     new nphysicshandler     /game/handler/physics
  711.     new noctree             /game/handler/octree
  712.  
  713.     new nweatherhandler     /game/handler/weather
  714.  
  715.     # aaargh, menu handler is at non-standard location !!!
  716.     new nguimenuhandler     /sys/servers/menuhandler    
  717.  
  718.     new ncollhandler2       /game/handler/coll2
  719.     new ndatahandler        /game/handler/data
  720.     new neventhandler       /game/handler/event
  721.     new nbookhandler        /game/handler/book
  722.     new nsearchhandler      /game/handler/search
  723.     new ncookiehandler      /game/handler/cookie
  724.     new nfeedbackhandler    /game/handler/feedback
  725.  
  726.     new nrealworld          /world
  727.     new nroot               /world/clans
  728.     new n3dnode             /world/gui
  729. }
  730.  
  731. #--------------------------------------------------------------------
  732. #   create_viewer
  733. #   07-Jul-00   floh    extracted from create_handlers
  734. #   05-Dec-01   floh    + create alternative new style viewers
  735. #--------------------------------------------------------------------
  736. proc create_viewer {} {
  737. global nomads_home
  738.  
  739.     # new style viewer
  740.     new nviewer2      /world/viewers/identityviewer
  741.     new nchaseviewer  /world/viewers/chaseviewer
  742.     new nfreeviewer   /world/viewers/freeviewer
  743.     /world.setviewer2 /world/viewers/chaseviewer
  744. }
  745.  
  746. #--------------------------------------------------------------------
  747. #   init_handlers
  748. #
  749. #   20-Mar-99   floh    created
  750. #   25-Nov-99   bernd   Input Mapping rausgenommen, mu▀ jetzt extra aufgrufen werden
  751. #                       per: source  $nomads_home/scripts/input.tcl
  752. #   18-May-00   jeremy  + ncloudshandler
  753. #   31-May-00   jeremy  + nweatherhandler
  754. #   20-Oct-2000 bernd   ganzen alten schei▀ zu den wolken raus
  755. #--------------------------------------------------------------------
  756. proc init_handlers {} {
  757.  
  758.     global nomads_home
  759.  
  760.     set nomads_platform [get_platform]
  761.  
  762.     # Wasseroberflaeche. Voererst, um "Kompatibilitaet" zum bisherigen
  763.     # zu erreichen, eine grosse Scheibe an Position 0
  764.     /game/handler/physics.addblayer 0 0 0    1 10000 10000  12 0  0 0 0.0 0.0
  765.  
  766.     # initialize the event handler
  767.     /game/handler/event.setlogging true
  768.  
  769.     # initialize data handler
  770.     /game/handler/data.setdatapaths "home:data.n" "/data"
  771.     
  772.     # suchbereich
  773. #    /game/handler/search.setmaxwatchdistance 150
  774.     /game/handler/search.setmaxwatchdistance 500
  775.     /game/handler/search.setmaxwatchangle 15
  776.     /game/handler/search.setcursor /data/watchcursor01/crosshair01
  777.     /game/handler/search.sethaircross /data/crosshair01/crosshair01
  778. }    
  779.  
  780. #--------------------------------------------------------------------
  781. #   kill_handlers
  782. #   Raeumt die von create_handlers erzeugten Objekte weg.
  783. #   20-Mar-99   floh    created
  784. #--------------------------------------------------------------------
  785. proc kill_handlers {} {
  786.     sel /
  787.     delete /world/gui
  788.     delete /world/clans
  789.     delete /game
  790. }
  791.  
  792. #--------------------------------------------------------------------
  793. #
  794. #   Datenbibliothek laden und in definierte Reihenfolge bringen
  795. #
  796. #   16-Jun-99   floh    Handler-Initialisierung muss hier
  797. #                       raus, weil die Multiplayer-Init jetzt
  798. #                       ueber das Welt-Objekt passiert
  799. #   23-Aug-99   bernd   game_init umbenannt in get_gamedata
  800. #                       Die Routine macht ja nur noch das - damit wird demo.tcl lesbarer
  801. #   26-Sep-01   floh    laedt jetzt nur noch was wirklich fuers Menue
  802. #                       notwendig ist (Ausnahme: BACKPACK!)
  803. #--------------------------------------------------------------------
  804. proc get_data {} {
  805. global demoFlag
  806.  
  807.     set cwd [psel]
  808.  
  809.     # load the minimal data required for operating the menu
  810.     sel /game/handler/data
  811.     .loadpermanent shaders
  812.     .loadpermanent if_menu
  813.     .loadpermanent if_ebar
  814.     .loadpermanent if_emptyslot
  815.     .loadpermanent if_hilfe
  816.     .loadpermanent if_marker
  817.     .loadpermanent if_possesicons
  818.     .loadpermanent backpack
  819.     .loadpermanent libobjects
  820.     .loadpermanent crosshair01
  821.     .loadpermanent watchcursor01
  822.     .loadpermanent sky
  823.  
  824.     if {!$demoFlag} {
  825.         .loadpermanent backpack_g
  826.         .loadpermanent backpack_s
  827.     }
  828.  
  829.     sel $cwd
  830. }
  831.  
  832. #--------------------------------------------------------------------
  833. #   EOF
  834. #-------------------------------------------------------------------
  835.